with StrEnc; use StrEnc;
with Ada.Text_IO;
procedure Put_Line_UTF8 (S : String)
is
begin
   Ada.Text_IO.Put_Line(UTF8_To_GBK.Convert(S));
end Put_Line_UTF8;
